home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / dc1 / doit.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-14  |  389b  |  29 lines
  1. /* My UUTRAF script */
  2.  
  3. rc = Open('dbase', 'errors', 'R');
  4. if ~rc
  5.    then
  6.    do
  7.       say 'Unable to open errors'
  8.       exit 20
  9.    end
  10.  
  11. file = ""
  12.  
  13. do forever
  14.    str = readln('dbase')
  15.    if eof('dbase') then exit
  16.  
  17.    parse var str with base '*** ' extra
  18.  
  19.    if extra ~= '' then
  20.    do
  21.       file = extra
  22.    end
  23.    else
  24.    do
  25.       if str ~= '' then
  26.          say left(file,10) str
  27.    end
  28. end
  29.